home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Prof page II type.adf / Install / CreateDisk < prev    next >
AmigaDOS Script File  |  1990-08-10  |  3KB  |  101 lines
  1. .KEY dest/A
  2. .BRA {
  3. .KET }
  4.  
  5. if not $GDIHaveAnswers eq "yes"
  6.     echo >ENV:GDIHaveAnswers noline "yes"
  7.  
  8.     instutil -eGDICopyCGT ask -o -dy "   Will this diskette be used with either PPage or PageSetterII  [Y/N]? Y"
  9.  
  10.     if warn
  11.  
  12.         instutil -eGDICopyCGTII ask -o -dy "   Will this diskette be used with Office Page [Y/N]? Y"
  13.  
  14.     endif
  15.  
  16.     instutil -eGDICopyCF ask -o -dn "   Do you want the CreateFont utility on this diskette [Y/N]? N"
  17.  
  18.     instutil -eGDICopyDL ask -o -dn "   Do you want the Download utility on this diskette [Y/N]? N"
  19.  
  20. endif
  21.  
  22.  
  23. echo "*N~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*N"
  24. echo "   Please insert a blank diskette into drive {dest}."
  25. echo ""
  26. echo "   WARNING: If you answer *"Yes*" to the following question, the diskette"
  27. echo "            in drive {dest} will be completely erased.  Please ensure"
  28. echo "            that this diskette does not contain any important files."
  29. echo ""
  30.  
  31. instutil ask -f -dn "OK to erase diskette in {dest} [Y/N]? N"
  32. if warn
  33.     skip CreateAbort
  34. endif
  35.  
  36. failat 21
  37.  
  38. lab CreateFormat
  39.  
  40. echo " "
  41. format drive "{dest}" name "ExtraFonts" noicons quick
  42.  
  43. if error
  44.     format <NIL: drive "{dest}" name "ExtraFonts" noicons
  45.  
  46.     if error
  47.         echo "*E[;33m*NThe diskette could not be formatted.*N*E[m"
  48.         echo "Insert another diskette into {dest} and hit RETURN,"
  49.         instutil ask -f -dy "or type N to abort: "
  50.         if warn
  51.             skip CreateAbort
  52.         endif
  53.         skip back CreateFormat
  54.     endif
  55. endif
  56.  
  57. failat 10
  58.  
  59. assign GD_Dest: "{dest}"
  60.  
  61. echo "*N Copying utility files"
  62.  
  63.  
  64. execute GD_SourceDisk:Install/RamCopy GD_SourceDisk:cg.chardata GD_Dest:cg.chardata "      cg.chardata" "installed"
  65.  
  66. execute GD_SourceDisk:Install/RamCopy GD_SourceDisk:psfont.alias GD_Dest:psfont.alias "      psfont.alias" "installed"
  67.  
  68. if "$GDIInstallType" eq "floppy"
  69.  
  70.     execute GD_SourceDisk:Install/RamCopy GD_SourceDisk:Install/Use_This_Disk GD_Dest:Use_This_Disk "      Use_This_Disk" "installed"
  71.  
  72.     execute GD_SourceDisk:Install/RamCopy GD_SourceDisk:Install/Use_This_Disk.info GD_Dest:Use_This_Disk.info "      Use_This_Disk.info" "installed"
  73.  
  74. endif
  75.  
  76. if $GDICopyCGT eq "yes"
  77.     execute GD_SourceDisk:Install/RamCopy GD_SourceDisk:CGT GD_Dest:CGT "      CGT" "installed"
  78. endif
  79.  
  80. if $GDICopyCGTII eq "yes"
  81.     execute GD_SourceDisk:Install/RamCopy GD_SourceDisk:CGTII GD_Dest:CGTII "      CGTII" "installed"
  82. endif
  83.  
  84. if $GDICopyCF eq "yes"
  85.     execute GD_SourceDisk:Install/RamCopy GD_SourceDisk:CreateFont GD_Dest:CreateFont "      CreateFont" "installed"
  86. endif
  87.  
  88. if $GDICopyDL eq "yes"
  89.     execute GD_SourceDisk:Install/RamCopy GD_SourceDisk:Download GD_Dest:Download "      Download" "installed"
  90. endif
  91.  
  92. makedir GD_Dest:CGCache
  93. makedir GD_Dest:PS
  94.  
  95. skip CreateOK
  96.  
  97. lab CreateAbort
  98.     echo "*E[;33m   Aborting.  The diskette has not been modified.*E[m"
  99.  
  100. lab CreateOK
  101.